home *** CD-ROM | disk | FTP | other *** search
/ Mac Action 1996 January / mac-action-07.iso / mac / Sound ’n’ Vision / CD List / CD List.c next >
Encoding:
C/C++ Source or Header  |  1994-06-29  |  15.9 KB  |  618 lines  |  [TEXT/KAHL]
  1. /********************************/
  2. /* CD List by Tim Bendel        */
  3. /* June 9, 1994                 */
  4. /*                              */
  5. /* Note that this program was   */
  6. /* written quickly without      */
  7. /* regard for error checking,   */
  8. /* style, technique, form, etc. */
  9. /* Feel free to change the      */
  10. /* program.  If you do so,      */
  11. /* please email me at:          */
  12. /* TBendel@aol.com              */
  13. /********************************/
  14.  
  15.  
  16. /* This was written and tested on a PowerMac 6100/60 AV with an internal CD Rom drive */
  17.  
  18.  
  19. #include <Dialogs.h>
  20. #include <Quickdraw.h>
  21.  
  22.  
  23. #define ORIG_FILE         0
  24. #define USER_FILE         1
  25. #define BASE_RES_ID       128
  26. #define NIL               0L
  27. #define MOVE_TO_FRONT     -1L
  28. #define REMOVE_ALL_EVENTS 0
  29.  
  30. #define MIN_SLEEP         0L
  31. #define NIL_MOUSE_REGION  0L  
  32.  
  33. #define WNE_TRAP_NUM      0x60
  34. #define UNIMPL_TRAP_NUM   0x9F
  35.  
  36.  
  37. #define PREF_ITEM         8
  38. #define CLEAR_ITEM        6
  39. #define PASTE_ITEM        5
  40. #define COPY_ITEM         4
  41. #define DELETE_ITEM       2
  42. #define TEST_ITEM         3
  43. #define CLOSE_ITEM        5
  44. #define GRID_ITEM         6
  45. #define NEW_ITEM          1
  46. #define EDIT_ITEM         1
  47. #define ABORT_ITEM        2
  48. #define SAVE_ITEM         4
  49. #define QUIT_ITEM         2
  50. #define ABOUT_ITEM        1
  51. #define YES               1
  52. #define NO                0
  53. #define DONE              3
  54. #define SAVE_BUTTON       11
  55. #define CANCEL_BUTTON     12
  56. #define ON                1
  57. #define OFF               0
  58. #define NO_FLAGS          0L
  59. #define NOT_A_NORMAL_MENU -1
  60. #define APPLE_MENU_ID     128
  61. #define FILE_MENU_ID      129
  62. #define EDIT_MENU_ID      130
  63.  
  64. #define ABOUT_ALERT       400
  65.  
  66. typedef struct cdstruct {
  67.  
  68.    int idnum;
  69.    char title[40];
  70.    };
  71.  
  72.  
  73. typedef struct CDStruct {
  74.    
  75.    char           title[40];
  76.    short          numsongs;
  77.    char           song[30][40];
  78.    };
  79.  
  80. pascal   OSErr  SetDialogDefaultItem(DialogPtr theDialog, short newItem)
  81.      = { 0x303C, 0x0304, 0xAA68};
  82. pascal   OSErr  SetDialogCancelItem(DialogPtr theDialog, short newItem)
  83.      =  {0x303C, 0x0305, 0xAA68};
  84. pascal   OSErr  SetDialogTracksCursor(DialogPtr theDialog, Boolean tracks)
  85.      =  {0x303C, 0x0306, 0xAA68};
  86.  
  87.  
  88. WindowPtr    listwind;
  89. DialogPtr    aboutdlg,newd;
  90. Boolean      gDone,gWNEImplemented;
  91. EventRecord  gTheEvent;
  92. MenuHandle   AppleMenu,FileMenu,EditMenu;
  93. struct CDStruct acd;
  94. struct cdstruct cds[200];
  95.  
  96.  
  97. main() {
  98.    
  99.    GDHandle curdev;
  100.    int pixdepth;
  101.    GrafPtr oldport;
  102.    Handle song;
  103.    Rect temprect;
  104.    
  105.    MaxApplZone();
  106.    ToolBoxInit();
  107.  
  108.        
  109.    if (IsColor()) {
  110.       curdev = GetDeviceList();
  111.       WindowInit();
  112.       MenuBarInit();
  113.       DialogInit();
  114.             
  115.       FlushEvents( everyEvent, REMOVE_ALL_EVENTS);
  116.       MainLoop();      
  117.       
  118.       }
  119.    else {
  120.       StopAlert(130,NIL);
  121.       ExitToShell();
  122.       }
  123.    }
  124.  
  125. IsColor() {
  126.  
  127.    SysEnvRec mySE;
  128.    
  129.    SysEnvirons(2,&mySE);
  130.    if (!mySE.hasColorQD)
  131.       return(FALSE);
  132.    else
  133.       return(NGetTrapAddress(0xAB03,ToolTrap)!=NGetTrapAddress(0xA89F,ToolTrap));
  134.    }
  135.  
  136. GetPixelDepth(GDHandle thedevice) {
  137.  
  138.    PixMapHandle screenPMapH;
  139.    int          pixeldepth;
  140.    
  141.    screenPMapH = (**thedevice).gdPMap;
  142.    pixeldepth = (**screenPMapH).pixelSize;
  143.    return(pixeldepth);
  144.    }
  145.  
  146. DoAlert(Str255 s) {
  147.  
  148.    ParamText(s,"/p","/p","/p");
  149.    NoteAlert(128,0L);
  150.    }   
  151.  
  152. DoAlert2(Str255 s) {
  153.  
  154.    ParamText("/p",s,"/p","/p");
  155.    NoteAlert(129,0L);
  156.    }   
  157.  
  158. /***********************/ 
  159. /* Initializes toolbox */
  160. /***********************/   
  161. ToolBoxInit() {
  162.  
  163.    InitGraf( &thePort );
  164.    InitFonts();
  165.    FlushEvents( everyEvent, REMOVE_ALL_EVENTS);
  166.    InitWindows();
  167.    InitMenus();
  168.    TEInit();
  169.    InitDialogs( NIL );
  170.    InitCursor();
  171.    } 
  172.  
  173. /********************/ 
  174. /* Gets game window */
  175. /********************/   
  176. WindowInit() {
  177.    
  178.    listwind = GetNewWindow(128,NIL,0);
  179.    SetPort(listwind);
  180.    }
  181.  
  182. /***********************/ 
  183. /* Initializes MenuBar */
  184. /***********************/      
  185. MenuBarInit() {
  186.  
  187.    Handle myMenuBar;
  188.    
  189.    myMenuBar = GetNewMBar(BASE_RES_ID);
  190.    SetMenuBar( myMenuBar);
  191.    AppleMenu = GetMHandle(APPLE_MENU_ID); 
  192.    FileMenu = GetMHandle(FILE_MENU_ID);
  193.    EditMenu = GetMHandle(EDIT_MENU_ID);
  194.    AddResMenu(AppleMenu,'DRVR');
  195.    DrawMenuBar();   
  196.    DisableItem(EditMenu,CLEAR_ITEM);                            
  197.    DisableItem(EditMenu,PASTE_ITEM);                            
  198.    DisableItem(EditMenu,COPY_ITEM);                            
  199.    }
  200.  
  201. /*******************/
  202. /* Sets Up Dialogs */
  203. /*******************/
  204. DialogInit() {
  205.       
  206.    aboutdlg = GetNewDialog(134,NIL,0); 
  207.    }      
  208.  
  209. /**************************/
  210. /* Loops until user quits */
  211. /**************************/
  212. MainLoop() {  
  213.    int a,x,y,dx,dy;
  214.    Str255 ts,myString;
  215.    int itemhit,itemtype;
  216.    Rect itemrect;
  217.    Handle itemhandle;
  218.    int temp; 
  219.    GrafPtr    savePort;
  220.    
  221.    gDone = FALSE;
  222.    gWNEImplemented = (NGetTrapAddress(WNE_TRAP_NUM, ToolTrap) !=
  223.                       NGetTrapAddress(UNIMPL_TRAP_NUM, ToolTrap));
  224.    
  225.    while(gDone == FALSE) {       
  226.  
  227.       /********************************/
  228.       /* Mac events are taken care of */
  229.       /********************************/
  230.       HandleEvent(); 
  231.       }
  232.    }
  233.    
  234.  
  235. HandleEvent() {
  236.  
  237.    char theChar;
  238.    int  itemhit;
  239.    
  240.     HiliteMenu(0);
  241.    /***********************/   
  242.    /* Gets the next event */
  243.    /***********************/   
  244.    if (gWNEImplemented) {
  245.       WaitNextEvent(everyEvent,&gTheEvent,MIN_SLEEP,NIL_MOUSE_REGION);
  246.       }   
  247.     else {
  248.       SystemTask();
  249.       GetNextEvent(everyEvent,&gTheEvent);
  250.       }
  251.    
  252.     /*****************************************************/
  253.     /* When an event happens, the proper action is taken */
  254.     /*****************************************************/
  255.     switch(gTheEvent.what) {
  256.    
  257.       case nullEvent: HandleNull();
  258.                       break;
  259.                       
  260.       case mouseDown: 
  261.                       HandleMouseDown();
  262.                       break;
  263.                       
  264.       case keyDown:   
  265.       case autoKey:   theChar = gTheEvent.message & charCodeMask;
  266.                       if ((gTheEvent.modifiers & cmdKey) != 0)
  267.                          HandleMenuChoice(MenuKey(theChar));
  268.                        break;
  269.                       
  270.       case updateEvt: BeginUpdate((WindowPtr)gTheEvent.message);
  271.                       if ((WindowPtr)gTheEvent.message == listwind) {
  272.                         }
  273.   
  274.                       EndUpdate((WindowPtr)gTheEvent.message); 
  275.                       break;
  276.       case app4Evt:
  277.                       break;
  278. } 
  279.    }
  280.                       
  281.                       
  282.  HandleMouseDown() {
  283.  
  284.     WindowPtr  whichWindow;
  285.     short      thePart;
  286.     long       menuChoice,windSize;
  287.     Point      thePoint;
  288.     
  289.     thePart = FindWindow(gTheEvent.where, &whichWindow);
  290.     /*********************************************************/
  291.     /* Takes action based on where the mouse is when pressed */
  292.     /*********************************************************/
  293.     switch(thePart) {
  294.     
  295.        case inMenuBar:    menuChoice = MenuSelect(gTheEvent.where);
  296.                           HandleMenuChoice(menuChoice);
  297.                           break;
  298.                        
  299.        case inSysWindow : SystemClick(&gTheEvent,whichWindow);
  300.                           break;
  301.        case inContent   : break;
  302.        }
  303.        
  304.     }
  305.     
  306.  /****************************/
  307.  /* Controls pull-down menus */
  308.  /****************************/
  309.  HandleMenuChoice(menuChoice) 
  310.     long int menuChoice; {
  311.     
  312.     int theMenu;
  313.     int theItem;
  314.     
  315.     if (menuChoice != 0) {
  316.        
  317.        theMenu = HiWord(menuChoice);
  318.        theItem = LoWord(menuChoice);
  319.        
  320.        switch(theMenu) {
  321.           case APPLE_MENU_ID : HandleAppleChoice(theItem);
  322.                                break;
  323.      
  324.           case FILE_MENU_ID  : HandleFileChoice(theItem);
  325.                                break;
  326.      
  327.  
  328.           case EDIT_MENU_ID  : HandleEditChoice(theItem);
  329.                                break;
  330.      
  331.  
  332.           default :    
  333.                                HandleFileChoice(theItem);
  334.                                break;
  335.           }
  336.           
  337.           HiliteMenu(0);
  338.        }
  339.     }
  340.     
  341. /********************************/
  342. /* Takes care of the apple menu */
  343. /********************************/
  344.  HandleAppleChoice(theItem)
  345.     int theItem; {
  346.     
  347.     Str255     accName;
  348.     int        accNumber,itemhit;
  349.     short int  itemNumber;
  350.     GrafPtr    savePort;
  351.       
  352.     /***********************************************************/
  353.     /* Displays the About dialog or handles the desk accessory */
  354.     /***********************************************************/
  355.     switch(theItem) {
  356.               
  357.        case ABOUT_ITEM :
  358.                          GetPort(&savePort);
  359.                          ShowWindow(aboutdlg);
  360.                          SelectWindow(aboutdlg);                         
  361.                          SetDialogDefaultItem(aboutdlg,1);
  362.                          ModalDialog(NULL,&itemhit);
  363.                          HideWindow(aboutdlg);   
  364.                          SetPort(savePort);
  365.                          break;
  366.                             
  367.        default         : 
  368.                          GetPort(&savePort);
  369.                          GetItem(AppleMenu, theItem,accName);
  370.                          OpenDeskAcc(accName);
  371.                          SetPort(savePort);
  372.                          break;
  373.        }
  374.     }
  375.  
  376.  
  377.  
  378.  HandleFileChoice(theItem)
  379.     int theItem; {
  380.     
  381.     DialogPtr quitd,dialog;
  382.     Handle soundh;
  383.     int itemhit;
  384.     int a;
  385.     GrafPtr savePort;
  386.     StandardFileReply    *filename;
  387.            
  388.     switch(theItem) {
  389.        
  390.        case QUIT_ITEM  :     
  391.                          quitd = GetNewDialog(132,NIL,0);
  392.                          GetPort(&savePort);
  393.                          ShowWindow(quitd);
  394.                          SelectWindow(quitd);
  395.                          SetPort(quitd);
  396.                          SetDialogDefaultItem(quitd,1);
  397.                          SetDialogCancelItem(quitd,2);
  398.                          ModalDialog(NULL,&itemhit);
  399.    
  400.                          if (itemhit == 1)     
  401.                             gDone = TRUE;
  402.                          
  403.                          HideWindow(quitd);   
  404.                          DisposDialog(quitd);
  405.                          SetPort(savePort); 
  406.                          break;
  407.        
  408.       case NEW_ITEM   :  HandleNewChoice();
  409.                          break; 
  410.        }   
  411.     }
  412.      
  413. HandleEditChoice(theItem)
  414.     int theItem; { }
  415.    
  416. HandleNull() { }
  417.                   
  418.    
  419.  
  420. HandleNewChoice() {
  421.    
  422.  
  423.    Str255                   rName,theString;
  424.    long                     iErr,bufsize,bsize;
  425.    short                    iFileRef,iCnt,rID,index,fRefNum;
  426.    int                      a,i; 
  427.    Handle                   hRsrc,prog;
  428.    ResType                  thetype,rType,ptype;
  429.    char                     *thenum;
  430.    Point                    thepoint;
  431.    SFTypeList               typeList;
  432.    SFReply                  reply,reply2;
  433.    
  434.    /******************/
  435.    /* Get File Names */
  436.    /******************/
  437.    typeList[0] = 'ProG';
  438.    thepoint.h = thepoint.v = 100;
  439.    SFGetFile(thepoint, NIL, NIL, 1, typeList, NIL, &reply);
  440.    if (reply.good == TRUE) {
  441.       SFPutFile(thepoint, NIL, "\pMy CD List", NIL, &reply2);
  442.       if (reply2.good == TRUE) {
  443.  
  444.          /******************/
  445.          /* Open List File */
  446.          /******************/
  447.          iErr = Create( reply2.fName, reply2.vRefNum, 'MSWD', 'TEXT');
  448.          iErr = FSOpen ( reply2.fName, reply2.vRefNum, &fRefNum );
  449.            if (iErr == 0) {  
  450.             bufsize = sizeof(Str255);             
  451.             iErr = SetFPos ( fRefNum, fsFromStart,0);                            
  452.        
  453.             /******************************/
  454.             /* Get Resource as Read Only  */
  455.             /******************************/
  456.             thetype = 'STR#';
  457.             ptype = 'ProG';
  458.             iFileRef = OpenRFPerm(reply.fName,reply.vRefNum,1);
  459.             iCnt = Count1Resources(thetype);
  460.             
  461.             /*********************/
  462.             /* Get Song Res ID's */
  463.             /*********************/
  464.             for (a=1;a<=iCnt;++a) {
  465.                hRsrc = Get1IndResource(thetype, a); 
  466.                GetResInfo(hRsrc, &rID, &rType, rName);
  467.                cds[a - 1].idnum = rID;
  468.                clearstring(theString);            
  469.                GetIndString(theString, rID, 1);
  470.                copytostring(theString,cds[a - 1].title);
  471.                }
  472.             
  473.             /*********************/
  474.             /* Sort CD Titles    */
  475.             /*********************/
  476.             stripper(iCnt);
  477.             bubblesort(iCnt);
  478.               
  479.             /*******************/
  480.             /* Get Song Titles */
  481.             /*******************/
  482.             for (a=1;a<=iCnt;++a) {
  483.                prog = Get1Resource(ptype, cds[a -1].idnum);
  484.                HLock(prog);
  485.                thenum = *prog;
  486.                index = thenum[1]; 
  487.                HUnlock(prog);
  488.                acd.numsongs = index;
  489.                clearstring(theString);            
  490.                GetIndString(theString, cds[a -1].idnum, 1);
  491.                copytostring(theString,acd.title);
  492.                
  493.                for (i = 2;i<=index + 1;++i) {
  494.                   clearstring(theString);            
  495.                   GetIndString(theString, cds[a -1].idnum, i); 
  496.                   copytostring(theString,acd.song[i - 1]);
  497.                   }                               
  498.                
  499.                
  500.                /************************/
  501.                /* Write titles to file */
  502.                /************************/
  503.                bufsize = 40 * sizeof(char);
  504.                iErr = FSWrite( fRefNum, &bufsize, &acd.title);                                                 
  505.                clearstring(theString);
  506.                copytostring(theString,acd.song[0]);
  507.                 for (i = 0;i <= acd.numsongs;++i)
  508.                   iErr = FSWrite( fRefNum, &bufsize, &acd.song[i]);                                                   
  509.                 for (i = 0;i <= 2;++i)
  510.                   iErr = FSWrite( fRefNum, &bufsize, &acd.song[0]);                                                   
  511.                }
  512.             FSClose(fRefNum);
  513.             CloseResFile(iFileRef);
  514.             }
  515.          else {
  516.             DoAlert2("\pError Saving List");
  517.             iErr = FSClose(fRefNum);
  518.             }
  519.          }
  520.       else {
  521.          DoAlert2("\pError Opening File");
  522.          iErr = FSClose(fRefNum);
  523.          }
  524.       }
  525.    }
  526.  
  527.          
  528.  
  529.  
  530. clearstring(Str255 dest) {
  531.  
  532.    int a;
  533.    
  534.    for (a = 0;a < 255;++a)
  535.       dest[a] = ' ';
  536.   }
  537.  
  538. copytostring(Str255 source,char *dest) {
  539.  
  540.    int a;
  541.    
  542.    for (a = 0;a < 40;++a)
  543.       dest[a] = ' ';
  544.       
  545.    for (a = 0;a < 40;++a)
  546.       dest[a] = source[(a + 1)];
  547.    dest[39] = 13;
  548.    }
  549.  
  550.  
  551. /*************************/
  552. /* Used in alphabetizing */
  553. /*************************/
  554. stripper(int MAXNUM) {
  555.    int a,b;
  556.  
  557.    for (a=0;a < MAXNUM;++a) {
  558.       for (b = 0;b < 40;++b)
  559.      
  560.      /*************************************/
  561.      /* Changes all letters to lower-case */
  562.      /*************************************/
  563.      if ((cds[a].title[b] >= 'A') && (cds[a].title[b] <= 'Z'))
  564.         cds[a].title[b] += 32;
  565.       
  566.       /***************************************/
  567.       /* Takes off the word 'the' if present */
  568.       /***************************************/
  569.       if ((cds[a].title[0] == 't') &&
  570.       (cds[a].title[1] == 'h') &&
  571.       (cds[a].title[2] == 'e')) {
  572.       for (b = 0;b < 35;++b)
  573.          cds[a].title[b] = cds[a].title[b + 4];
  574.       cds[a].title[36] = ' ';
  575.       cds[a].title[37] = ' ';
  576.       cds[a].title[38] = ' ';
  577.        /*      cds[a].title[29] = 13;     */
  578.       }
  579.       }
  580.    }
  581.  
  582. /*******************************/
  583. /* Simple Buublesort alogrithm */
  584. /*******************************/
  585. bubblesort(int MAXNUM) {
  586.  
  587.    int i,j;
  588.    struct cdstruct temp;
  589.  
  590.    for(i = 0;i < MAXNUM;++i) {
  591.       for (j = (MAXNUM - 1);j >= i;--j) {
  592.      if(alphabet(i,j) == 1) {
  593.         temp = cds[i];
  594.         cds[i] = cds[j];
  595.         cds[j] = temp;
  596.         }
  597.      }
  598.       }
  599.    }
  600.  
  601.  
  602. /*****************************/ 
  603. /* Checks alphabetical order */
  604. /*****************************/ 
  605. alphabet(int i,int j) {
  606.    int a,b;
  607.  
  608.    a = 0;
  609.  
  610.    while ((cds[i].title[a] == cds[j].title[a])  && (a < 29))
  611.       ++a;
  612.  
  613.    if (cds[i].title[a] > cds[j].title[a])
  614.       return(1);
  615.    else
  616.       return(0);
  617.  
  618.    }